home *** CD-ROM | disk | FTP | other *** search
/ Space Imagery / Space Imagery.iso / menu / menu.bas < prev    next >
BASIC Source File  |  1995-03-02  |  1KB  |  27 lines
  1.  
  2. CLS
  3. STARTOVER:
  4. SHELL "SPACMENU.COM"
  5.  
  6. CHOOSEN:
  7.  A$=INKEY$
  8.   IF A$=CHR$(49) THEN SHELL "CD\EARTH":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
  9.   IF A$=CHR$(50) THEN SHELL "CD\HISTORY":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
  10.   IF A$=CHR$(51) THEN SHELL "CD\NASA":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
  11.   IF A$=CHR$(52) THEN SHELL "CD\PLANETS":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
  12.   IF A$=CHR$(53) THEN SHELL "CD\SATELITE":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
  13.   IF A$=CHR$(54) THEN SHELL "CD\SHUTTLE":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
  14.   IF A$=CHR$(55) THEN SHELL "CD\PROGRAMS\CIRCUM":SHELL "CIRCUM.EXE":SHELL "CD\MENU":GOTO STARTOVER
  15.   IF A$=CHR$(56) THEN SHELL "CD\PROGRAMS\COSMOS":SHELL "COSMOS14.EXE":SHELL "CD\MENU":GOTO STARTOVER
  16.   IF A$=CHR$(57) THEN SHELL "CD\PROGRAMS\GEOCLK":SHELL "GEOCLK":SHELL "CD\MENU":GOTO STARTOVER
  17.   IF A$=CHR$(48) THEN SHELL "CD\PROGRAMS\SKYGLOBE":SHELL "SKYGLOBE":SHELL "CD\MENU":GOTO STARTOVER
  18. IF A$=CHR$(27) THEN CLS:SHELL "CD\":END
  19. GOTO CHOOSEN
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.